home *** CD-ROM | disk | FTP | other *** search
/ Softwarová Záchrana 3 / Softwarova-zachrana-3.bin / Xteq X-Setup / xqdcXSP-Setup-EN.exe / {app} / plugins / XQ WinXP AutoPlay 4.xpl < prev    next >
Text File  |  2003-08-02  |  2KB  |  41 lines

  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="5"
  3. "COUNT"="1"
  4. "UIPATH"="System\AutoPlay\Troubleshooting"
  5. "NAME"="Reset AutoPlay Default Handler Selection"
  6. "VERSION"="1.01"
  7. "OSVERSION"="0000011"
  8. "LANGUAGE"="VBScript"
  9. "TEXT 1"="Reset Default Handler Selection"
  10. "DESCRIPTION 1"="When your insert a Data CD ROM and the AutoPlay windows appears, you have the choice to make one action the default action for all times. The next time you insert a CD of the same type into the drive, Windows will no longer show the AutoPlay menu but instead directly executed your previous selection."
  11. "DESCRIPTION 2"="Although this saves you a lot of time later on, you might decide not to have the default action to be executed, but to have the AutoPlay menu appear again. You can do this for each CD and drive separately by selecting the CD-ROM or DVD Drive in question, right-click on it, selecting "Properties" and check the tab "AutoPlay"."
  12. "DESCRIPTION 3"="If you want to reset all default selections in one step, you can use this plug-in. It will reset ALL your default selections in one step. "
  13. "AUTHOR"="Xteq Systems"
  14. "CONTACTURL"="http://www.xteq.com"
  15. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  16. "COMMENT 1"=" "
  17. "COMMENT 2"=" "
  18.  
  19.  
  20. sV1="HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\AutoplayHandlers\UserDefaults\"
  21. Sub Plugin_Initialize 
  22. End Sub
  23.  
  24. Sub Plugin_CheckData(ElementIndex)
  25. End Sub
  26.  
  27. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  28.    i=RegEnumValues(sv1)
  29. '   MsgInformation i
  30.  
  31.    for e=1 to i
  32.        s=RegEnumElement(e)
  33.        Call RegDeleteValue(sV1 & s)
  34.    next 
  35.  
  36.    Call MsgInformation("All cleared")
  37. End Sub
  38.  
  39. Sub Plugin_Terminate 
  40. End Sub
  41.